﻿Imports nsoftware.IPWorks.DataProvider
Imports nsoftware.core
Imports System.Web.Configuration

Partial Class WebForm_Main
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If clsAuth.GetUser().UserType <> My.UserType.Employee Then
                Response.Redirect(clsAuth.GetDefaultUrl())
            End If
            '判斷是否有找到
            If DirectCast(Master.FindControl("lblHeadText"), Label) IsNot Nothing Then
                DirectCast(Master.FindControl("lblHeadText"), Label).Text = Me.GetLocalResourceObject("lblBulletin.Text")
            End If
        End If
    End Sub

    Protected Sub SearchBulletin1_Loaded(ByVal source As Object, ByVal e As System.EventArgs) Handles SearchBulletin1.Loaded
Me.SearchBulletin1.ShowCount = "10"        
Me.SearchBulletin1.BindGV(My.UserType.Employee)
    End Sub
End Class
